0 POKE 53280,1:POKE 53281,1:PRINT"[147]":PRINT CHR$(142):PRINT CHR$(8)
1 FORI=1TO3000:NEXT:POKE 788,52:POKE 792,193
10 PRINT"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
11 PRINT"[154][194]                                    [194][144] "
12 PRINT"[154][194]  [213][178][201][213][195][201][213][195][201][213][195][201] [201][178][213][178][213][201][213][178][195][201][213][195][201][201][178][213][213][195][201]  [194][144] "
13 PRINT"[154][194] -[194][194][194][171][195] [194] [174][171][195][179] [194][194][194][194][194][194][194][194] [194][194] [194][194][194][194][202][195][201]- [194][144] "
14 PRINT"[154][194]  [203][177][202][202][195][203][202][195][203][203] [202] [202][177][203][177][203][202][203][177][195][203][202][195][203][202][177][203][202][195][203]  [194][144] "
15 PRINT"[154][194]                                    [194][144] "
16 PRINT"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
17 PRINT"[154][144]                                      "
18 PRINT
19 PRINT"                         [223]"
20 PRINT"[146][223] [223]"
21 PRINT"[159]                       [223][146][223] [223]"
22 PRINT"[159][146][223] [223][146][223] [223][169]     "
23 PRINT"[159][146][223] [223][146][223] [223][169] [146][169]"
24 PRINT"[159][146][223] [223][146][223] [223][169] [146][169] [159][169]   "
25 PRINT"[159][146][223] [223][146][223]  [146][169] [159][169] [146][169]"
26 PRINT"[159][146][223] [223][146][223][146][169] [159][169] [146][169]"
27 PRINT"[159][146][223] [223][146][159][169] [146][169]"
28 PRINT"[159][146][223] [223][146][159][169] [146][169]"
29 PRINT"[159][146][223]  [146][169]"
30 PRINT"[159][146][223][146][169]"
31 WAIT 198,1:POKE 198,0:GOTO 100
50 REM -----------
51 REM HINTERGRUND
52 REM -----------
53 PRINT"[147]"
54 PRINT"                         [223]"
55 PRINT"[146][223] [223]"
56 PRINT"[159]                       [223][146][223] [223]"
57 PRINT"[159][146][223] [223][146][223] [223][169]     "
58 PRINT"[159][146][223] [223][146][223] [223][169] [146][169]"
59 PRINT"[159][146][223] [223][146][223] [223][169] [146][169] [159][169]   "
60 PRINT"[159][146][223] [223][146][223]  [146][169] [159][169] [146][169]"
61 PRINT"[159][146][223] [223][146][223][146][169] [159][169] [146][169]"
62 PRINT"[159][146][223] [223][146][159][169] [146][169]"
63 PRINT"[159][146][223] [223][146][159][169] [146][169]"
64 PRINT"[159][146][223]  [146][169]"
65 PRINT"[159][146][223][146][169]"
66 RETURN
100 GOSUB 50
101 PRINT""
102 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
103 PRINT"[194]             [194][144] "
104 PRINT"[194] FUNKTIONEN: [194][144] "
105 PRINT"[194]             [194][144] "
106 PRINT"[194] DISK        [194][144] "
107 PRINT"[194] ADRESSEN    [194][144] "
109 PRINT"[194] DRUCKER     [194][144] "
110 PRINT"[194] RECHNER     [194][144] "
111 PRINT"[194] PAUSE       [194][144] "
112 PRINT"[194] SPEZIAL     [194][144] "
113 PRINT"[194] QUIT        [194][144] "
114 PRINT"[194]             [194][144] "
115 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
116 PRINT"[144]               "
117 PRINT
118 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
119 PRINT"[194]             [194][144] "
120 PRINT"[194] DISK-STATUS [194][144] "
121 PRINT"[194]             [194][144] "
122 PRINT"[194] --<     >-- [194][144] [158][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
123 PRINT"[194]             [194][144] [158][194]F1=[206][205] F3=[205][206] RET.=<[189][194][144] "
124 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] [158][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
125 PRINT"[144]               [146][144]                     "
130 PRINT"[209][146][209][146]"
131 PRINT" [146] [146]"
132 GET WA$
133 IF WA$="[134]"THEN 140
135 IF WA$=CHR$(13)THEN 1000
136 GOTO 132
140 PRINT" [146] "
141 PRINT"[209][209]"
142 PRINT" [146] "
143 GET WB$
144 IF WB$="[133]"THEN 130
145 IF WB$="[134]"THEN 150
146 IF WB$=CHR$(13)THEN 10000
147 GOTO 143
150 PRINT" [146] "
151 PRINT"[209][209]"
152 PRINT" [146] "
153 GET WC$
154 IF WC$="[133]"THEN 140
155 IF WC$="[134]"THEN 160
156 IF WC$=CHR$(13)THEN 20000
157 GOTO 153
160 PRINT" [146] "
161 PRINT"[209][209]"
162 PRINT"  "
163 GET WD$
164 IF WD$="[133]"THEN 150
165 IF WD$="[134]"THEN 170
166 IF WD$=CHR$(13)THEN 30000
167 GOTO 163
170 PRINT" [146] "
171 PRINT"[209][209]"
172 PRINT"  "
173 GET WE$
174 IF WE$="[133]"THEN 160
175 IF WE$="[134]"THEN 180
176 IF WE$=CHR$(13)THEN 33000
177 GOTO 173
180 PRINT"  "
181 PRINT"[209][209]"
182 PRINT"  "
183 GET WF$
184 IF WF$="[133]"THEN 170
185 IF WF$="[134]"THEN 200        
186 IF WF$=CHR$(13)THEN 34000
187 GOTO 183
200 PRINT"  "
201 PRINT"[209][209]"
202 PRINT"  "
203 GET WH$
204 IF WH$="[133]"THEN 180
205 IF WH$=CHR$(13)THEN 40000
206 GOTO 203
1000 REM ------
1001 REM  DISK
1002 REM ------
1003 PRINT""
1004 PRINT"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
1005 PRINT"[154][194]               [194][144] "
1006 PRINT"[154][194]  DISK-MENUE:  [194][144] "
1007 PRINT"[154][194]               [194][144] "
1008 PRINT"[154][194] FORMATIEREN   [194][144] "
1009 PRINT"[154][194] SCRATCHEN     [194][144] "
1010 PRINT"[154][194] DIRECTORY     [194][144] "
1011 PRINT"[154][194] VALIDATE      [194][144] "
1012 PRINT"[154][194] INITIALIZE    [194][144] "
1013 PRINT"[154][194] ZURUECK       [194][144] "
1014 PRINT"[154][194]               [194][144] "
1015 PRINT"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
1016 PRINT"[154][144]                 "
1020 PRINT"[154][209][209]"
1021 PRINT"[154]  "
1022 GET WA$
1023 IF WA$="[134]"THEN 1030
1024 IF WA$=CHR$(13)THEN 2000
1025 GOTO 1022
1030 PRINT"[154]  "
1031 PRINT"[154][209][209]"
1032 PRINT"[154]  "
1033 GET WB$
1034 IF WB$="[133]"THEN 1020
1035 IF WB$="[134]"THEN 1040
1036 IF WB$=CHR$(13)THEN 3000
1037 GOTO 1033
1040 PRINT"[154]  "
1041 PRINT"[154][209][209]"
1042 PRINT"[154]  "
1043 GET WC$
1044 IF WC$="[133]"THEN 1030
1045 IF WC$="[134]"THEN 1050
1046 IF WC$=CHR$(13)THEN 4000
1047 GOTO 1043
1050 PRINT"[154]  "
1051 PRINT"[154][209][209]"
1052 PRINT"[154]  "
1053 GET WD$
1054 IF WD$="[133]"THEN 1040
1055 IF WD$="[134]"THEN 1060
1056 IF WD$=CHR$(13)THEN 5000
1057 GOTO 1053
1060 PRINT"[154]  "
1061 PRINT"[154][209][209]"
1062 PRINT"[154]  "
1063 GET WE$
1064 IF WE$="[133]"THEN 1050
1065 IF WE$="[134]"THEN 1070
1066 IF WE$=CHR$(13)THEN 6000
1067 GOTO 1063
1070 PRINT"[154]  "
1071 PRINT"[154][209][209]"
1072 PRINT"[154]  "
1073 GET WF$
1074 IF WF$="[133]"THEN 1060
1075 IF WF$=CHR$(13)THEN 100
1076 GOTO 1073
2000 PRINT""
2001 PRINT"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
2002 PRINT"[156][194]DISK EINLEGEN![194][144] "
2003 PRINT"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
2004 PRINT"[156][144]                "
2005 GET FM$
2006 IF FM$="Q"THEN 100
2007 IF FM$=" "THEN 2010
2008 GOTO 2005
2010 QY$="BUSY!":GOSUB 50000
2011 OPEN 1,8,15,"N:FORMATTED,64"
2012 CLOSE 1
2013 QY$="READY":GOSUB 50000
2014 GOTO 100
3000 PRINT""
3001 PRINT"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
3002 PRINT"[156][194]DISK EINLEGEN![194][144] "
3003 PRINT"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
3004 PRINT"[156][144]                "
3005 GET SC$
3006 IF SC$="Q"THEN 100
3007 IF SC$=" "THEN 3010
3008 GOTO 3005
3010 QY$="BUSY!":GOSUB 50000
3011 OPEN 1,8,15,"S:*"
3012 CLOSE 1
3013 QY$="READY":GOSUB 50000
3014 GOTO 100
4000 PRINT""
4001 PRINT"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
4002 PRINT"[156][194]DISK EINLEGEN![194][144] "
4003 PRINT"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
4004 PRINT"[156][144]                "
4005 GET DI$
4006 IF DI$="Q"THEN 100
4007 IF DI$=" "THEN 4010
4008 GOTO 4005
4010 QY$="BUSY!":GOSUB 50000
4011 GOSUB 50
4012 PRINT"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
4013 PRINT"[154][194]                                  [194][144] "
4014 PRINT"[154][194]             DIRECTORY            [194][144] "
4015 PRINT"[154][194]                                  [194][144] "
4016 PRINT"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
4017 PRINT"[154][144]                                    "
4018 PRINT
4019 OPEN 2,8,15
4020 OPEN 1,8,0,"$0"
4021 GET#1,A$,B$
4022 GET#1,A$,B$
4023 GET#1,A$,B$
4024 C=0
4025 IF A$<>"" THEN C=ASC(A$)
4026 IF B$<>"" THEN C=C+ASC(B$)*256
4027 PRINT"[156]"MID$(STR$(C),2);TAB(3);"[146]";
4028 GET#1,B$:IF ST<>0 THEN 4100
4029 IF B$<>CHR$(34)THEN 4028
4030 GET#1,B$:IF B$<>CHR$(34)THEN PRINT B$;:GOTO 4030
4031 GET#1,B$:IF B$=CHR$(32)THEN 4031
4032 PRINT TAB(19);:C$=""
4033 C$=C$+B$:GET#1,B$:IF B$<>""THEN 4033
4034 PRINT""LEFT$(C$,3)
4035 GETT$:IF T$="" THEN GOSUB 4200
4036 IF ST=0 THEN 4022
4100 PRINT" BLOCKS FREE"
4101 CLOSE 1:CLOSE 2:WAIT 198,1:POKE 198,0:GOTO 100
4200 IF T$="Q"THEN CLOSE 1:CLOSE 2:GOTO 100
4201 RETURN:REM ZURUECK ZU ZEILE Y
4202 REM ENDE DER DIRECTORY
5000 PRINT""
5001 PRINT"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
5002 PRINT"[156][194]DISK EINLEGEN![194][144] "
5003 PRINT"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
5004 PRINT"[156][144]                "
5005 GET VY$
5006 IF VY$="Q"THEN 100
5007 IF VY$=" "THEN 5010
5008 GOTO 5005
5010 QY$="BUSY!":GOSUB 50000
5011 OPEN 1,8,15,"V":CLOSE 1
5012 GOTO 100
6000 PRINT""
6001 PRINT"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
6002 PRINT"[156][194]DISK EINLEGEN![194][144] "
6003 PRINT"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
6004 PRINT"[156][144]                "
6005 GET IT$
6006 IF IT$="Q"THEN 100
6007 IF IT$=" "THEN 6010
6008 GOTO 6005
6010 QY$="BUSY!":GOSUB 50000
6011 OPEN 15,8,15,"I":CLOSE 15
6012 GOTO 100
10000 PRINT"[147]"
10001 GOSUB 50
10002 IF DA=1 THEN GOTO 11000
10003 IF DA=0 THEN GOSUB 19000
10004 DA=1:GOTO 11000
10200 REM -------------FEHLERMELDUNG
10201 PRINT""
10202 PRINT"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
10203 PRINT"[156][194]                                  [194][144] "
10204 PRINT"[156][194] ES SIND NOCH KEINE DATEN GELADEN [194][144] "
10205 PRINT"[156][194]                                  [194][144] "
10206 PRINT"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
10207 PRINT"[156][144]                                    ":RETURN
10210 PRINT""
10211 PRINT"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
10212 PRINT"[156][194]                                  [194][144] "
10213 PRINT"[156][194] TUT MIR LEID,NAME NICHT GEFUNDEN [194][144] "
10214 PRINT"[156][194]                                  [194][144] "
10215 PRINT"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
10216 PRINT"[156][144]                                    "
10217 WAIT 198,1:POKE 198,0:RETURN
10500 REM --------------------DATEN ???
10501 IF Z>0 THEN 10506
10502 GOSUB 10200
10506 FORI=1TO2000:NEXT:RETURN
11000 PRINT""
11001 PRINT"[159][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
11002 PRINT"[159][194]                 [194][144] "
11003 PRINT"[159][194] ADRESSENKARTEI: [194][144] "
11004 PRINT"[159][194]                 [194][144] "
11005 PRINT"[159][194] DATEI LADEN     [194][144] "
11006 PRINT"[159][194] DATEI SPEICHERN [194][144] "
11007 PRINT"[159][194] ADRES.EINGEBEN  [194][144] "
11008 PRINT"[159][194] ADRES.AENDERN   [194][144] "
11009 PRINT"[159][194] ADRES.LOESCHEN  [194][144] "
11010 PRINT"[159][194] ADRES.ZEIGEN    [194][144] "
11011 PRINT"[159][194] ZURUECK         [194][144] "
11012 PRINT"[159][194]                 [194][144] "
11013 PRINT"[159][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
11014 PRINT"[159][144]                   "
11015 GET WA$
11020 PRINT"[159][209][209]"
11021 PRINT"[159]  "
11022 GET WA$
11023 IF WA$="[134]"THEN 11030
11024 IF WA$=CHR$(13)THEN 12000
11025 GOTO 11022
11030 PRINT"[159]  "
11031 PRINT"[159][209][209]"
11032 PRINT"[159]  "
11033 GET WA$
11034 IF WA$="[133]"THEN 11020
11035 IF WA$="[134]"THEN 11040
11036 IF WA$=CHR$(13)THEN 13000
11037 GOTO 11033
11040 PRINT"[159]  "
11041 PRINT"[159][209][209]"
11042 PRINT"[159]  "
11043 GET WA$
11044 IF WA$="[133]"THEN 11030
11045 IF WA$="[134]"THEN 11050
11046 IF WA$=CHR$(13)THEN 14000
11047 GOTO 11043
11050 PRINT"[159]  "
11051 PRINT"[159][209][209]"
11052 PRINT"[159]  "
11053 GET WA$
11054 IF WA$="[133]"THEN 11040
11055 IF WA$="[134]"THEN 11060
11056 IF WA$=CHR$(13)THEN 15000
11057 GOTO 11053
11060 PRINT"[159]  "
11061 PRINT"[159][209][209]"
11062 PRINT"[159]  "
11063 GET WA$
11064 IF WA$="[133]"THEN 11050
11065 IF WA$="[134]"THEN 11070
11066 IF WA$=CHR$(13)THEN 16000
11067 GOTO 11063
11070 PRINT"[159]  "
11071 PRINT"[159][209][209]"
11072 PRINT"[159]  "
11073 GET WA$
11074 IF WA$="[133]"THEN 11060
11075 IF WA$="[134]"THEN 11080
11076 IF WA$=CHR$(13)THEN 17000
11077 GOTO 11073
11080 PRINT"[159]  "
11081 PRINT"[159][209][209]"
11082 PRINT"[159]  "
11083 GET WA$
11084 IF WA$="[133]"THEN 11070
11085 IF WA$=CHR$(13)THEN 18000
11086 GOTO 11083
12000 REM ------------------DATEI LADEN
12001 REM -----------------------------
12002 PRINT""
12004 PRINT"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
12005 PRINT"[154][194]              [194][144] "
12006 PRINT"[154][194] DATEI LADEN: [194][144] "
12007 PRINT"[154][194]              [194][144] "
12008 PRINT"[154][194] BITTE LEGEN  [194][144] "
12009 PRINT"[154][194] SIE IHRE     [194][144] "
12010 PRINT"[154][194] ADRESSENDISK [194][144] "
12011 PRINT"[154][194] EIN,ODER     [194][144] "
12012 PRINT"[154][194] DRUECKEN SIE [194][144] "
12013 PRINT"[154][194] 'Q' FUER     [194][144] "
12014 PRINT"[154][194] ZURUECK!     [194][144] "
12015 PRINT"[154][194]              [194][144] "
12016 PRINT"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
12017 PRINT"[154][144]                "
12018 GET WA$
12019 IF WA$=" "THEN 12030
12020 IF WA$="Q"THEN 10000
12021 GOTO 12018
12030 PRINT""
12031 PRINT"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
12032 PRINT"[156][194]                                   [194][144] "
12033 PRINT"[156][194] MOMENT,DIE DATEN WERDEN GELADEN ! [194][144] "
12034 PRINT"[156][194]                                   [194][144] "
12035 PRINT"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
12036 PRINT"[156][144]                                     "
12037 OPEN 1,8,2,"MEGA-WIN/ADR.,S,R"
12038 INPUT#1,Z
12039 FORY=1TOZ
12040 FORI=1TO7
12041 INPUT#1,D$(Y,I)
12042 NEXT I
12043 NEXT Y
12044 CLOSE 1
12045 FORX=1TO2000:NEXT
12046 GOTO 10000
13000 REM --------------DATEI SPEICHERN
13001 REM -----------------------------
13002 GOSUB 10500:IF Z=0 THEN 10000
13003 PRINT""
13004 PRINT"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
13005 PRINT"[154][194]              [194][144] "
13006 PRINT"[154][194]  SPEICHERN:  [194][144] "
13007 PRINT"[154][194]              [194][144] "
13008 PRINT"[154][194] BITTE LEGEN  [194][144] "
13009 PRINT"[154][194] SIE ZUM      [194][144] "
13010 PRINT"[154][194] SPEICHERN    [194][144] "
13011 PRINT"[154][194] IHRE         [194][144] "
13012 PRINT"[154][194] ADRESSENDISK [194][144] "
13013 PRINT"[154][194] EIN,ODER     [194][144] "
13014 PRINT"[154][194] DRUECKEN SIE [194][144] "
13015 PRINT"[154][194] 'Q' FUER     [194][144] "
13016 PRINT"[154][194] ZURUECK !    [194][144] "
13017 PRINT"[154][194]              [194][144] "
13018 PRINT"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
13019 PRINT"[154][144]                "
13020 GET WA$
13021 IF WA$="Q"THEN 10000
13022 IF WA$=" "THEN 13030
13023 GOTO 13020
13030 PRINT""
13031 PRINT"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
13032 PRINT"[156][194]                                   [194][144] "
13033 PRINT"[156][194] MOMENT,DIE DATEN WERDEN GESICHERT [194][144] "
13034 PRINT"[156][194]                                   [194][144] "
13035 PRINT"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
13036 PRINT"[156][144]                                     "
13037 OPEN 15,8,15,"S:MEGA-WIN/ADR."
13038 CLOSE 15
13039 OPEN 1,8,2,"@:MEGA-WIN/ADR.,S,W"
13040 PRINT#1,Z
13041 FORY=1 TO Z
13042 FORI=1 TO 7
13043 IF D$(Y,I)="" THEN PRINT#1," ":GOTO 13045
13044 PRINT#1,D$(Y,I)
13045 NEXT I
13046 NEXT Y
13047 CLOSE 1
13048 FORX=1TO2000:NEXT
13049 GOTO 10000
14000 REM ------------ADRESSEN EINGEBEN
14001 REM -----------------------------
14002 REM
14003 PRINT"[147]"
14004 PRINT"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
14005 PRINT"[154][194]                 [194][144] "
14006 PRINT"[154][194]  ADR. EINGEBEN  [194][144] "
14007 PRINT"[154][194]                 [194][144] "
14008 PRINT"[154][194]               : [194][144] "
14009 PRINT"[154][194]               : [194][144] "
14010 PRINT"[154][194]               : [194][144] "
14011 PRINT"[154][194]               : [194][144] "
14012 PRINT"[154][194]               : [194][144] "
14013 PRINT"[154][194]               : [194][144] "
14014 PRINT"[154][194]               : [194][144] "
14015 PRINT"[154][194]                 [194][144] "
14016 PRINT"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
14017 PRINT"[154][144]                   "
14018 Z=Z+1
14019 PRINT""
14020 FORI=1TO7
14021 PRINT"[154]";F$(I);"[146]";
14022 INPUT D$(Z,I)
14023 NEXT
14024 PRINT""
14025 PRINT"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
14026 PRINT"[156][194]                                   [194][144] "
14027 PRINT"[156][194] ALLES RICHTIG EINGEGEBEN('J'/'N') [194][144] "
14028 PRINT"[156][194]                                   [194][144] "
14029 PRINT"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
14030 PRINT"[156][144]                                     "
14031 GET WA$
14032 IF WA$="J"THEN 14035
14033 IF WA$="N"THEN Z=Z-1:GOTO 14000
14034 GOTO 14031
14035 PRINT"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
14036 PRINT"[156][194]                                   [194][144] "
14037 PRINT"[156][194]    WEITERE EINGABEN('J'/'N')      [194][144] "
14038 PRINT"[156][194]                                   [194][144] "
14039 PRINT"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
14040 PRINT"[156][144]                                     "
14041 GET WA$
14042 IF WA$="J"THEN 14000
14043 IF WA$="N"THEN 10000
14044 GOTO 14041
15000 REM ------------ADRESSEN AENDERN
15001 REM ----------------------------
15002 GOSUB 10500:IF Z=0 THEN 10000
15003 ZZ=1
15004 GOSUB 50
15005 PRINT""
15006 PRINT"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
15007 PRINT"[154][194]                                   [194][144] "
15008 PRINT"[154][194]         ADRESSEN AENDERN          [194][144] "
15009 PRINT"[154][194]                                   [194][144] "
15010 PRINT"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
15011 PRINT"[154][144]                                     "
15013 PRINT"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
15014 PRINT"[156][194]                                   [194][144] "
15015 PRINT"[156][194] - ------------------------------- [194][144] "
15016 PRINT"[156][194] - ------------------------------- [194][144] "
15017 PRINT"[156][194] - ------------------------------- [194][144] "
15018 PRINT"[156][194] - ------------------------------- [194][144] "
15019 PRINT"[156][194] - ------------------------------- [194][144] "
15020 PRINT"[156][194] - ------------------------------- [194][144] "
15021 PRINT"[156][194] - ------------------------------- [194][144] "
15022 PRINT"[156][194]                                   [194][144] "
15023 PRINT"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
15024 PRINT"[156][144]                                     "
15025 PRINT"[145][145][145][145][145][145][145][145][145][145][145]"
15026 FORI=1TO7
15027 PRINT"[156]";I;F$(I);D$(ZZ,I)
15028 NEXT
15029 GET X$:IF X$="" THEN 15029
15030 IF ASC(X$)<133 OR ASC(X$)>136 THEN 15029
15031 IF ASC(X$)=136 THEN 10000
15032 IF ASC(X$)=133 AND ZZ<Z THEN ZZ=ZZ+1:GOTO 15004
15033 IF ASC(X$)=134 AND ZZ>1 THEN ZZ=ZZ-1:GOTO 15004
15034 IF ASC(X$)=135 THEN 15036
15035 GOTO 15029
15036 PRINT"":PRINT"[158][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
15037 PRINT"[158][194]BITTE GEBEN SIE DIE FELDNUMMER EIN![194][144] "
15038 PRINT"[158][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
15039 PRINT"[158][144]                                     "
15040 GET FX$
15041 IF FX$="1"THEN X=1:GOTO 15050
15042 IF FX$="2"THEN X=2:GOTO 15050
15043 IF FX$="3"THEN X=3:GOTO 15050
15044 IF FX$="4"THEN X=4:GOTO 15050
15045 IF FX$="5"THEN X=5:GOTO 15050
15046 IF FX$="6"THEN X=6:GOTO 15050
15047 IF FX$="7"THEN X=7:GOTO 15050
15048 GOTO 15040
15050 INPUT"[144]NEUER INHALT:";D$(ZZ,X)
15051 GOTO 15004
16000 REM ------------ADRESSEN LOESCHEN
16001 REM -----------------------------
16002 GOSUB 10500:IF Z=0 THEN 10000
16003 GOSUB 50
16004 PRINT""
16005 PRINT"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
16006 PRINT"[154][194]                                   [194][144] "
16007 PRINT"[154][194]         ADRESSEN LOESCHEN         [194][144] "
16008 PRINT"[154][194]                                   [194][144] "
16009 PRINT"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
16010 PRINT"[154][144]                                     "
16011 PRINT"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
16012 PRINT"[156][194]                                   [194][144] "                
16013 PRINT"[156][194] ZUM LOESCHEN EINZELNER ADRESSEN,  [194][144] "
16014 PRINT"[156][194] GEBEN SIE BITTE IM UNTEREN TEIL   [194][144] "
16015 PRINT"[156][194] NAME UND VORNAME EIN.SOLL DIE     [194][144] "
16016 PRINT"[156][194] ADRESSE JEDOCH FUER IMMER         [194][144] "
16017 PRINT"[156][194] GELOESCHT SEIN,MUESSEN SIE NACH   [194][144] "
16018 PRINT"[156][194] DEM LOESCHEN DIE DATEN SPEICHERN! [194][144] "
16019 PRINT"[156][194]                                   [194][144] "
16020 PRINT"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
16021 PRINT"[156][144]                                     "
16022 PRINT
16023 INPUT"[144]VORNAME :";D1$
16024 INPUT"[144]NACHNAME:";D2$
16025 X=1
16026 IF D$(X,2)=D1$ AND D$(X,3)=D2$ THEN 16030
16027 IF X<Z THEN X=X+1:GOTO 16026
16028 GOSUB 10210:GOTO 10000
16030 PRINT""
16031 GOSUB 50
16032 PRINT"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][179]LOESCHEN[171][195][195][195][195][195][195][195][195][195][195][195][195][174]"
16033 PRINT"[154][194]                                   [194][144] "
16034 PRINT"[154][194]                                   [194][144] "
16035 PRINT"[154][194]                                   [194][144] "
16036 PRINT"[154][194]                                   [194][144] "
16037 PRINT"[154][194]                                   [194][144] "
16038 PRINT"[154][194]                                   [194][144] "
16039 PRINT"[154][194]                                   [194][144] "
16040 PRINT"[154][194]                                   [194][144] "
16041 PRINT"[154][194]                                   [194][144] "
16042 PRINT"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
16043 PRINT"[154][144]                                     "
16044 PRINT""
16045 FORI=1TO7
16046 PRINT"";F$(I);D$(X,I)
16047 NEXT
16048 FORI=1TO5000:NEXT
16049 PRINT""
16050 PRINT"[158][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
16051 PRINT"[158][194]                                   [194][144] "
16052 PRINT"[158][194] SOLL ICH DIESE ADRESSE LOESCHEN ? [194][144] "
16053 PRINT"[158][194]                                   [194][144] "
16054 PRINT"[158][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
16055 PRINT"[158][144]                                     "
16056 GET WA$
16057 IF WA$="J"THEN 16060
16058 IF WA$="N"THEN 10000
16059 GOTO 16056
16060 FOR Y=X TO Z-1
16061 FORI=1TO7
16062 D$(Y,I)=D$(Y+1,I)
16063 NEXTI:NEXT Y
16064 Z=Z-1
16065 GOTO 10000
17000 REM ------------ADRESSEN AUSGEBEN
17001 REM -----------------------------
17002 GOSUB 10500
17003 IF Z=0 THEN 10000
17004 GOSUB 17005:GOTO 17020
17005 GOSUB 50
17006 PRINT""
17007 PRINT"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
17008 PRINT"[154][194]                                   [194][144] "
17009 PRINT"[154][194]        ADRESSEN AUSGEBEN:         [194][144] "
17010 PRINT"[154][194]                                   [194][144] "
17011 PRINT"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
17012 PRINT"[154][144]                                     "
17013 RETURN
17020 PRINT""
17021 PRINT"[158][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
17022 PRINT"[158][194]DRUCKER ODER BILDSCHIRM ('D'/'B') ?[194][144] "
17023 PRINT"[158][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
17024 PRINT"[158][144]                                     "
17025 GET G$
17026 IF G$="D"THEN OPEN 1,4:GOTO 17030
17027 IF G$="B"THEN 17030
17028 GOTO 17025
17030 GOSUB 17005
17031 PRINT"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
17032 PRINT"[156][194]                                   [194][144] "
17033 PRINT"[156][194] BITTE GEBEN SIE UNTEN EINIGE      [194][144] "
17034 PRINT"[156][194] BEGRIFFE EIN,NACH DENEN DER       [194][144] "
17035 PRINT"[156][194] COMPUTER SUCHEN SOLL,DAMIT SIE    [194][144] "
17036 PRINT"[156][194] NICHT ALLE ADRESSEN ABSUCHEN      [194][144] "
17037 PRINT"[156][194] MUESSEN.                          [194][144] "
17038 PRINT"[156][194]                                   [194][144] "
17039 PRINT"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
17040 PRINT"[156][144]                                     "
17041 PRINT"BITTE GEBEN SIE SUCHBEGRIFFE EIN:"
17042 FORI=1TO7:S$(I)="":NEXT
17043 FORI=1TO7
17044 PRINT F$(I);
17045 INPUT S$(I)
17046 NEXT
17047 FORY=1TOZ
17048 S=0
17049 FORI=1TO7
17050 IF S$(I)="" THEN S=S+1:GOTO 17052
17051 IF LEFT$(D$(Y,I),LEN(S$(I)))=S$(I) THEN S=S+1
17052 NEXT I
17053 IF S<>7 THEN 17069
17054 IF G$="D"THEN PRINT#1
17055 IF G$="B"THEN GOSUB 17005:PRINT
17056 FORI=1TO7
17057 IF G$="B"THEN PRINT F$(I);D$(Y,I)
17058 IF G$="D"THEN PRINT#1,F$(I);D$(Y,I)
17059 NEXT I
17060 IF G$="D"THEN 17069
17061 PRINT""
17062 PRINT"[158][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
17063 PRINT"[158][194]                                   [194][144] "
17064 PRINT"[158][194]   BITTE DRUECKEN SIE EINE TASTE   [194][144] "
17065 PRINT"[158][194]                                   [194][144] "
17066 PRINT"[158][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
17067 PRINT"[158][144]                                     "
17068 WAIT 198,1:POKE 198,0
17069 NEXT Y
17070 GOSUB 17005
17071 PRINT
17072 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
17073 PRINT"[194]                                   [194][144] "
17074 PRINT"[194] KEINE WEITEREN ADRESSEN VORHANDEN [194][144] "
17075 PRINT"[194]                                   [194][144] "
17076 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
17077 PRINT"[144]                                     "
17078 WAIT 198,1:POKE 198,0
17079 IF G$="D"THEN CLOSE 1
17080 GOTO 10000
18000 REM ---------------------ZURUECK
18001 REM ----------------------------
18002 PRINT""
18003 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
18004 PRINT"[194]                                   [194][144] "
18005 PRINT"[194] SIND ALLE DATEN GESPEICHERT (J/N) [194][144] "
18006 PRINT"[194]                                   [194][144] "
18007 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
18008 PRINT"[144]                                     "
18009 GET WA$
18010 IF WA$="J"THEN 100
18011 IF WA$="N"THEN 10000
18012 GOTO 18009
19000 REM ---------------DIMENSIONIEREN
19001 REM -----------------------------
19002 DIM D$(200,7)
19003 F$(1)="ANREDE        "
19004 F$(2)="VORNAME       "
19005 F$(3)="NACHNAME      "
19006 F$(4)="STRASSE: :    "
19007 F$(5)="PLZ/WOHNORT   "
19008 F$(6)="TELEFONNUMMER "
19009 F$(7)="BEMERKUNG     "
19010 RETURN
20000 PRINT"[147]"
20001 REM ----- DRUCK TEXT -----
20002 PRINT""
20003 PRINT"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
20004 PRINT"[154][194]                                   [194][144] "
20005 PRINT"[154][194] --- MEGA-WINDOWS  TEXTDRUCKER --- [194][144] "
20006 PRINT"[154][194]                                   [194][144] "
20007 PRINT"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
20008 PRINT"[154][144]                                     "
20009 PRINT"[155][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
20010 PRINT"[155][194]----[219]----[219]----[219]----[219]----[219]----[219]----[219][194][144] "
20011 PRINT"[155][194]12345678901234567890123456789012345[194][144] "
20012 PRINT"[155][194]         1         2         3     [194][144] "
20013 PRINT"[155][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
20014 PRINT"[155][144]                                     "
20015 PRINT
20016 POKE 19,1
20017 INPUT">";A$
20018 IF A$="*END*"THEN 100
20019 IF A$<>"*END*"THEN 20030
20030 OPEN 4,4
20031 PRINT#4,A$
20032 CLOSE 4
20033 GOTO 20017
30000 PRINT"[147]"
30001 GOSUB 50
30002 PRINT""
30003 PRINT"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
30004 PRINT"[154][194]                                   [194][144] "
30005 PRINT"[154][194] - MEGA-WINDOWS  RECHNERFUNKTION - [194][144] "
30006 PRINT"[154][194]                                   [194][144] "
30007 PRINT"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
30008 PRINT"[154][144]                                     "
30009 PRINT
30010 PRINT"[155][176][178][195][195][195][195][195][195][195][195][195][195][195][195][195][178][174][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
30011 PRINT"[155][171][219][195][195][195][195][195][195][195][195][195][195][195][195][195][219][179][144] [194]1.ERSTEN FAKTOR[194][144] "
30012 PRINT"[155][194][194]----------- -[194][194][144] [194]  EINGEBEN     [194][144] "
30013 PRINT"[155][171][177][195][195][195][195][195][195][195][195][195][195][195][195][195][177][179][144] [194]2.RECHENWEISE  [194][144] "
30014 PRINT"[155][194][176][195][174][176][195][174][176][195][174][213][195][201][213][195][201][194][144] [194]  EINGEBEN     [194][144] "
30015 PRINT"[155][194][194]7[194][194]8[194][194]9[194][194]*[194][194]/[194][194][144] [194]3.ZWEITEN      [194][144] "
30016 PRINT"[155][194][173][195][189][173][195][189][173][195][189][202][195][203][202][195][203][194][144] [194]  FAKTOR       [194][144] "
30017 PRINT"[155][194][176][195][174][176][195][174][176][195][174][213][195][201][213][195][201][194][144] [194]  EINGEBEN     [194][144] "
30018 PRINT"[155][194][194]4[194][194]5[194][194]6[194][194]+[194][194]-[194][194][144] [194]4.ERGEBNIS     [194][144] "
30019 PRINT"[155][194][173][195][189][173][195][189][173][195][189][202][195][203][202][195][203][194][144] [194]  ABWARTEN     [194][144] "
30020 PRINT"[155][194][176][195][174][176][195][174][176][195][174][176][195][174][213][195][201][194][144] [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
30021 PRINT"[155][194][194]1[194][194]2[194][194]3[194][194]0[194][194]X[194][194][144] [144]                 "
30022 PRINT"[155][171][219][195][189][173][195][189][173][195][189][173][195][189][202][195][219][179][144] "
30023 PRINT"[155][173][177][195][195][195][195][195][195][195][195][195][195][195][195][195][177][189][144] "
30024 PRINT"[155][144]                 "
30025 PRINT
30026 INPUT"1.FAKTOR";A
30027 INPUT"[145][154]RECHENW.";RW$
30028 INPUT"[145]2.FAKTOR";B
30029 IF LEFT$(RW$,1)="+" THEN EG=A+B:GOTO 30035
30030 IF LEFT$(RW$,1)="-" THEN EG=A-B:GOTO 30035
30031 IF LEFT$(RW$,1)="*" THEN EG=A*B:GOTO 30035
30032 IF LEFT$(RW$,1)="/" THEN EG=A/B:GOTO 30035
30033 IF LEFT$(RW$,1)="X" THEN 100
30034 GOTO 30000
30035 PRINT"[155]";A:FORI=1TO 1000:NEXT
30036 PRINT"[155]";LEFT$(RW$,1):FORI=1TO1000:NEXT
30037 PRINT"[155]---------"
30038 PRINT"[155]";B:FORI=1TO1000:NEXT:PRINT"[155]---------"
30039 PRINT"[155]";EG
30040 PRINT"[155][155]="
30041 WAIT 198,1:POKE 198,0:GOTO 30000
33000 PRINT"[147]"
33001 PRINT"[158]MEGA-WINDOWS PAUSEFUNKTION"
33002 PRINT
33003 FORI=1TO3000:NEXT:PRINT"[147]"
33004 FORI=1TO192:PRINT"[156]PAUSE[146]";:NEXT
33005 FORI=1TO3000:NEXT:PRINT""
33006 PRINT"                         [223]"
33007 PRINT"[145][146][223] [223]"
33008 PRINT"[159]                       [223][146][223] [223]"
33009 PRINT"[145][159][146][223] [223][146][223] [223][169]     "
33010 PRINT"[159][146][223] [223][146][223] [223][169] [146][169]"
33011 PRINT"[145][159][146][223] [223][146][223] [223][169] [146][169] [159][169]   "
33012 PRINT"[159][146][223] [223][146][223]  [146][169] [159][169] [146][169]"
33013 PRINT"[145][159][146][223] [223][146][223][146][169] [159][169] [146][169]"
33014 PRINT"[159][146][223] [223][146][159][169] [146][169]"
33015 PRINT"[145][159][146][223] [223][146][159][169] [146][169]"
33016 PRINT"[159][146][223]  [146][169]"
33017 PRINT"[145][159][146][223][146][169]"
33018 WAIT 198,1:POKE 198,0:GOTO 100
34000 PRINT""
34001 PRINT"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
34002 PRINT"[154][194]                [194][144] "
34003 PRINT"[154][194] -SPEZIALMENUE- [194][144] "
34004 PRINT"[154][194]         [224]     [224][194][144] "
34005 PRINT"[154][194] INSTALLIEREN   [194][144] "
34006 PRINT"[154][194] COPYRIGHT      [194][144] "
34007 PRINT"[154][194] ZURUECK        [194][144] "
34008 PRINT"[154][194]                [194][144] "
34009 PRINT"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
34010 PRINT"[154][144]                  "
34011 PRINT"[154][209][209]"
34012 PRINT"[154]  "
34013 GET A$
34014 IF A$="[134]"THEN 34020
34015 IF A$=CHR$(13)THEN 34100
34016 GOTO 34013
34020 PRINT"[154]  "
34021 PRINT"[154][209][209]"
34022 PRINT"[154]  "
34023 GET A$
34024 IF A$="[133]"THEN 34011
34025 IF A$="[134]"THEN 34030
34026 IF A$=CHR$(13)THEN 34200
34027 GOTO 34023
34030 PRINT"[154]  "
34031 PRINT"[154][209][209]"
34032 GET A$
34033 IF A$="[133]"THEN 34020
34034 IF A$=CHR$(13)THEN 100
34035 GOTO 34032
34100 PRINT""
34101 PRINT"[156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
34102 PRINT"[156][194]DISK EINLEGEN![194][144] "
34103 PRINT"[156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
34104 PRINT"[156][144]                "
34105 GET A$
34106 IF A$="Q"THEN 100
34107 IF A$<>"" AND A$<>"Q"THEN 34110
34108 GOTO 34105
34110 SAVE"MEGA-WINDOWS/SC",8,1
34111 GOTO 100
34200 PRINT""
34300 PRINT""
34301 PRINT"[158][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
34302 PRINT"[158][194]              [194][144] "
34303 PRINT"[158][194] COPYRIGHT BY [194][144] "
34304 PRINT"[158][194]COMMODORE-SOFT[194][144] "
34305 PRINT"[158][194]  WRITTEN BY  [194][144] "
34306 PRINT"[158][194]MANUEL POHL'93[194][144] "
34307 PRINT"[158][194]              [194][144] "
34308 PRINT"[158][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
34309 PRINT"[158][144]                "
34310 WAIT 198,1:POKE 198,0:GOTO 100
40000 PRINT""
40001 PRINT"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
40002 PRINT"[154][194]              [194][144] "
40003 PRINT"[154][194] MOECHTEN SIE [194][144] "
40004 PRINT"[154][194] MEGA-WINDOWS [194][144] "
40005 PRINT"[154][194]   WIRKLICH   [194][144] "
40006 PRINT"[154][194]   BEENDEN?   [194][144] "
40007 PRINT"[154][194]  'J' / 'N'   [194][144] "
40008 PRINT"[154][194]              [194][144] "
40009 PRINT"[154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][144] "
40010 PRINT"[154][144]                "
40011 GET A$
40012 IF A$="J"THEN SYS 64738
40013 IF A$="N"THEN 100
40014 GOTO 40011
50000 PRINT"";QY$
50001 RETURN